200
How can I add the Desktop folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}>"
	End With
End Function
</SCRIPT>
</BODY>
199
How can I create my own favorites folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|C:\Temp><b>My Projects</b>|"
		.Expand "C:\Temp"
	End With
End Function
</SCRIPT>
</BODY>
198
How can change the explore from folder (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "C:\>"
	End With
End Function
</SCRIPT>
</BODY>
197
How can change the explore from folder (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "C:\"
	End With
End Function
</SCRIPT>
</BODY>
196
Is it possible to include more system drives as root folders (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "C:\>SYSTEM <off 4><b>1|D:\>SYSTEM <off 4><b>2|E:\>SYSTEM <off 4><b>3"
	End With
End Function
</SCRIPT>
</BODY>
195
Is it possible to include more system drives as root folders (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "C:\|D:\|E:\"
	End With
End Function
</SCRIPT>
</BODY>
194
How can I include a system drive as a root folder, instead lists its content

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "C:\>"
	End With
End Function
</SCRIPT>
</BODY>
193
How can I add the Desktop as a root folder (sample 3, rename, new display name, root)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}><sha ;;0>This <b>PC</b>"
		.Expand "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>
192
How can I add the Desktop as a root folder (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
		.Expand "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>
191
How can I add the Desktop as a root folder (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = ">"
		.Expand "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>
190
How can I browse the "Public" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{4336a54d-038b-4685-ab02-99bb52d3fb8b}>"
	End With
End Function
</SCRIPT>
</BODY>
189
How can I browse the "Libraries" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}>"
	End With
End Function
</SCRIPT>
</BODY>
188
How can I browse the "HomeGroup" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}>"
	End With
End Function
</SCRIPT>
</BODY>
187
How can I browse the "Games" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}>"
	End With
End Function
</SCRIPT>
</BODY>
186
How can I browse the "OneDrive" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}>"
	End With
End Function
</SCRIPT>
</BODY>
185
How can I browse the "Control Panel" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ColumnsVisible = 2
		.ExploreFromHere = "::{26EE0668-A00A-44D7-9371-BEB064C98683}"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
184
How can I browse the "My Documents"

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.IncludeFilesInFolder = True
		.ExpandFolders = True
		.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}"
	End With
End Function
</SCRIPT>
</BODY>
183
How can I hide all columns, and let just the Name being visible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ColumnsVisible = 2
	End With
End Function
</SCRIPT>
</BODY>
182
How can I browse the Printers and Faxes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ColumnsVisible = 2
		.ExploreFromHere = "::{2227a280-3aea-1069-a2de-08002b30309d}"
	End With
End Function
</SCRIPT>
</BODY>
181
How can I browse the Network Connections

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ColumnsVisible = 2
		.ExploreFromHere = "::{7007acc7-3202-11d1-aad2-00805fc1270e}"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
180
Is it possible to specify a different selection color, while the control has no focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.HotBackColor = .SelBackColor
		.HotForeColor = .SelForeColor
		.Background(166) = RGB(240,240,240)
		.Background(167) = RGB(0,0,1)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
179
Can I change the visual item's appearance as the mouse pointer passes/hovers over it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRVDiCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
	"AceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" & _
	"JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" & _
	"iC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFY" & _
	"FoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJl" & _
	"EkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhuZwJiidocmWCYaGcO4ngmZh6h6Z5JnYfofmeGZMnaHRNAoCgeiGaIKCaCoimiSgkneI5oEoP" & _
	"J3DwaRKFaFolmmChmhqJppFOYoeiQaJ4mKIoomoSoWiaKZqgqDoeD4KBKi6KYrmsCpGDgPhrEqNoehIa4KmaOoumuSp2jqLQPhoEpAiCLBLBaRoxmyCwmkYPosksCo0j" & _
	"KLQLEaUocmyQ5qEuAomHOVoriCLYbE6Xoxm2OZMk6OJflOFJajmYwzkKQI6m6S42m6O5vAuJgRjyTY1Diao9k2G5mAiPpvkudp5DYZexGsa5AAQBCAg=="
		.DefaultItemHeight = 20
		.FullRowSelect = True
		.ExploreFromHere = ""
		.ExpandFolders = True
		.SelBackColor = &H1ff9933
		.SelForeColor = RGB(0,0,0)
		.HotBackColor = &H1ffcc99
		.HotForeColor = .SelForeColor
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
178
Can I change the item's background color as the mouse pointer passes/hovers over it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ExpandFolders = True
		.HotBackColor = RGB(153,204,255)
		.HotForeColor = .SelForeColor
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
177
How do I programmatically select a folder, giving its full path

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ExpandFolders = True
		.Expand "C:\Windows\system32"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
176
How do I programmatically select a folder, giving its relative path

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ExpandFolders = True
		.Expand "C:"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
175
I've came to the situation that while I am using single-selection, I need to be able to select nothing, so no file/folder to be selected. It is possible

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "Click and press CTRL to unselect the file/folder." )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = True
		.AllowSelectNothing = True
		.ExploreFromHere = ""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
174
Is it possible to change the color of the selection as soon as the control is losing its focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = True
		.ExploreFromHere = ""
		.Background(166) = RGB(196,196,196)
		.Background(167) = RGB(0,0,1)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
173
Is it possible to hide the control's selecting when the control loses the focus
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = True
		.ExploreFromHere = ""
		.HideSelection = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
172
Can I display the folder name only, without other information like size, type, modified...

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SelectOnRelease = True
		.IncludeParentLabel = "<b><%0%></b>, <fgcolor=808080>...A* folders only"
		.IncludeFolderFilter = "A*"
		.ExploreFromHere = "C:\Windows\"
		.BrowseFolderPath = "C:\Windows\addins"
		.DisplayFoldersInfo = False
		.FullRowSelect = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
171
Recently, I have noticed a small arrow in the right side of each folder, so the question is how can I get ride of that

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SelectOnRelease = True
		.SingleSel = False
		.ExploreFromHere = ""
		.IncludeSubFolderIconKey = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
170
Can I select files/folders when user releases the mouse, rather than clicking it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SelectOnRelease = True
		.SingleSel = False
		.ExploreFromHere = ""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
169
I am using the IncludeParent property. Is there any option so I can display the parent label all the time, no matter if the control is vertically scrolled

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.IncludeFolders = True
		.ExpandFolders = True
		.IncludeParent = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
168
How can I freeze the events, so no event is fired
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "This will ne never fired, until FreezeEvents(False) is called." )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.FreezeEvents True
		.SelectOnRelease = True
	End With
End Function
</SCRIPT>
</BODY>
167
The focusing item does not get marked when selected

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = False
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
	"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" & _
	"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" & _
	"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" & _
	"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" & _
	"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" & _
	"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" & _
	"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" & _
	"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" & _
	"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" & _
	"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA=="
		End With
		.SelBackColor = &H1000000
		.SelForeColor = RGB(0,0,0)
		.ShowFocusRect = True
		.Background(19) = RGB(1,0,0)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
166
Can I change the visual appearance of the focused item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = False
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
	"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" & _
	"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" & _
	"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" & _
	"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" & _
	"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" & _
	"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" & _
	"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" & _
	"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" & _
	"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" & _
	"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA=="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQH" & _
	"IMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSW" & _
	"JajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw" & _
	"1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" & _
	"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4J" & _
	"EYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+T" & _
	"ZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA="
			.Add 3,"CP:2 -1 0 1 0"
		End With
		.SelBackColor = &H1000000
		.SelForeColor = RGB(0,0,0)
		.Background(19) = &H3000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
165
How do I check if an object is a file or folder

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		With .Get(2).Item(0)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.HasCheckBox = -1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
164
How do I get the selected item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( .Get(0).Item(0) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
		.ExpandFolders = True
		.IncludeFiles = False
		.ColumnVisible("Size") = False
		.ColumnVisible("Type") = False
		.ColumnVisible("Modified") = False
		.HeaderVisible = False
		.ExpandOnDblClk = True
		.AllowRename = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
163
How can I browse the "Recycle Bin" folder
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}"
	End With
End Function
</SCRIPT>
</BODY>
162
How can I browse the "Documents" folder
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
	End With
End Function
</SCRIPT>
</BODY>
161
How can I browse the "Control Panel" folder
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = "::{21EC2020-3AEA-1069-A2DD-08002b30309d}"
		.ColumnVisible("Size") = False
		.ColumnVisible("Type") = False
		.ColumnVisible("Modified") = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
160
How can I simulate the tree part of Windows Explorer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
		.ExpandFolders = True
		.IncludeFiles = False
		.ColumnVisible("Size") = False
		.ColumnVisible("Type") = False
		.ColumnVisible("Modified") = False
		.HeaderVisible = False
		.ExpandOnDblClk = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
159
How can I browse the Network folder
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	End With
End Function
</SCRIPT>
</BODY>
158
How can I browse the My Computer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>
157
How can I browse the My Network Places folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>
156
How can I browse the Desktop folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
	End With
End Function
</SCRIPT>
</BODY>
155
Does your control supports scrolling by touching the screen

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.AutoDrag = 4112 ' AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
	End With
End Function
</SCRIPT>
</BODY>
154
Do you have any Fit-To-Page options when printing the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		With .FileTypes.Add("*")
			.Folder = True
			.StrikeOut = True
			.Apply 
		End With
		.EndUpdate 
		With CreateObject("Exontrol.Print")
			.Options = "FitToPage = On"
			.PrintExt = ExFileView1.Object
			.Preview 
		End With
	End With
End Function
</SCRIPT>
</BODY>
153
Is it possible to expand all folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = "C:\Program Files\Microsoft.NET"
		.ExpandFolders = True
		.Expand "*"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
152
How can I provide my own context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State " )
		alert( State )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		.ShowContextMenu = "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
151
Is it possible to prevent executing a specific command from the object's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State " )
		alert( State )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
		.ExecuteContextMenu = 0
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
150
How can I disable the Delete command from the object's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State " )
		alert( State )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with `&Delete[dis]`",.ShowContextMenu)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
149
How can I change the label to be displayed in the parent folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.IncludeParent = True ' True
		.IncludeParentLabel = "<b><%0%>"
		.ExploreFromHere = "C:\"
		.BrowseFolderPath = "C:\Temp"
	End With
End Function
</SCRIPT>
</BODY>
148
How can I change the +/- button's images (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAEGg4BCwCg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
	"IUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2" & _
	"PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6Ho" & _
	"HEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZkH+eg9D4TxfhuRZeGGdwQH2PQTCmDpFFaKoVB+D5Xmed5pHoX44AWfR+F8UwVnEdpdkMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
	"TIcH+XoIFoEwnGEAh6A0KBgiMIICHdLgIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiSAJQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxl" & _
	"BkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTVaNoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCD" & _
	"QiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAgIA=="
			.Add 2,"gBFLBCJwBAEHhEJAEGg4BDACg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
	"IUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2" & _
	"PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6Ho" & _
	"HEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZknOeY9D4XxfHmB5cEGdp0EyJg7BUWoqFQfY/B8f5PnOd5+H6IAHkyRR7l2NxwkwMoMgKHIjCgShCgSHgogmch2BAJwhDg" & _
	"VIfgUIQYDSHoCgoGAckgIIdkgFICDQDJjDSIAnAmI5+CqCpikiNgugqYhyGoJAzGIAgKCINQNCMRIbCYCRYj4PoPmOMhWDgNBjFiCJaDYTRiGiFwlCOQhOEsJBJHIThQ" & _
	"hSJQZE4UAlAkGQ2EoJQkHMWhFF+SAZgSYQ3g2WQ2DsJYJkIYIWhmZpJioZ4aGaOYqE2GJNlmBIBGAJxjhiZQ5AkMhAg6nwpDaAglEkOgOgWIQoAmdIOh6DhJlkfRhWQO" & _
	"JtDsCJSCSBwkXSLIRiYaY6GqHInmmYguhgIppFIHoSDsJxmBGBhomoeo2hOK4OkqQoyiuaxDjGIxhhiAoSjoIJZnaIo+i+WhGH6OgpBiBAEIC"
		End With
		.HasCheckBox = 1
		.ExpandFolders = True
		.Background(180) = &H1000000
		.Background(181) = &H2000000
		.Indent = 19
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
147
How can I change the +/- button's images (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.LoadIconsKey = 1234
		.LoadIcons "gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BfeBf7ywj/dWHf7pxWJxeKdOMx+OyGTyWVxeHdWDwuBfb/zmaeWGxGWyON02l1GU" & _
	"0+izOE0Ofv9J1z/am1f6/3D/Xm73W83a83vA3/B4nD4283C/2m22ez2rU2+54/C33V6nX4vW6PK5+gf+xpGYf6V8j/QiEQr/Qfr9Xs9aD9vw9/x+nz+3s8/p8iV1n9/b" & _
	"zPQ+r3QG+UCQFAsEQA/TyvE8Cjsk/J/mOYZgn+YBel1CxeQyYENw1DkPQ7EERw/C0MQlCkFNUx8IwnCsLxJEUSxlGkQxtDkTxdFTJQcozJPmYhhOUW5aFif8iFlI5aST" & _
	"JElSZJcnSjJsiSNILlPm0j6StJUjSnKEvSfMMpS/Ip/y3LDFx6orJEE9hjmIYZ/lmWBXTlOk7TrOc6ooik9TxP8/TfOM2vhLNCQlOFATvP1GUXR080fP9BH/Q8eTUoc2" & _
	"PYZRjmKf5WlUVFPVBUVQ0/UM+IhU1SVXVVN07SrV0PV1WVHVVbVrXFS1zVdZ1gx9L0wxZBTaf5mGUZB/lOUZQn+UhQk8f5RE+Ttok+TlUIhaVr2lalnWhZVmWNZFh0LW" & _
	"NiXFZNl2bZ9q2pbVq23a14Xbddv3VdFyMnYChTZYZ/mgZxmn+UBOE1bGD4RhGCYNgGBWGQUV0pf2G4HguE4vjGF3/gOJYhS19p/fuIGoaRon+TZMP5jGV2xlD+ZJk2H4" & _
	"jmWYZPlOWZwimXNpkuO31kGQ2FfxtGyax/k0S5KH/lJJn/pJI6cSeoYOS+pacSmoaZo+kn/omjZlQ2h6Lrela1p+o6hqu06ttWr6ySum6RpWvZ9j+gJ4yRA70f5wm8bu" & _
	"l7hmxLH+ThMcHlHB4PxHCcNwXAabvu/70QOI8nvm/cfx3C8PxvF89xvN8drXIn/y27bunW872cxynIf5JkgR2rklzOtYPrWzEp2nYdl1nXdM1fLd91/Y9n2vA9x5Hlab" & _
	"pPd+L4fgV/1CePFyx3Hadh/kaRJDn+SBGkWf5I/B8XyfH8Pz/L9Hye/8Pt+76/s8s8Xq73+Pte573zf39f+/U/99r+H4PYdK3tBr0ydmzPm/eBkBIGvZgeP+CME4CHzO" & _
	"aYWBcDoNQQg3BKDsFIOQhPobOBBOzPikhQeo86B4WH3QTC4+sK4UCkM8YKE8KRBwrhhDtA0PIXwyhSbCEpOSLA+JXEYjxICREkAASUlETicEQiHFMpxAQ"
		.HasCheckBox = -1
		.ExpandFolders = True
		.Background(180) = RGB(210,4,0)
		.Background(181) = RGB(211,4,0)
		.Indent = 19
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
146
How can I change the check box button's images (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.LoadIconsKey = 1234
		.LoadIcons "gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1JJuBAGBJuDwWEw2FxGLw+Nws8xmKx2JymRyuCv9dy2byecyWfyk0z2X0Gj0eZqmW" & _
	"LmrADE1wAfexmuxfet15e3Gkluq1muYmw2U02m23+4L261FPyzJ5lF5jJ5Er5fNonP6PJpmW4dE4eWlna4MzYfjACi80t7uT7HrorR9wALXxABW+gAYv33fq9n7njb/w" & _
	"ANWLj5vq+grAAMUEAAdcFpQ7z+KRBylQjBr9JUc8LgAMkNQA1hFQ9AcDQKAA+RI4DawnB6iRQo8VozFoADZGIADhGgAHDG6UFXHUQR4UkfAAacgwzDcUxYyZ8yQoskHy" & _
	"68KNBJaUExKQAHvKqYlvLEeREZsuSpK0iqMyxlzGosxmXJqNzFMigGDNoACxOEDwTBZ1zBMLJjBPIAOsnjrTyME0I0y0/z26idn7RFCug+ItAAP1Hx5O0VM7SjS0q3TE" & _
	"NFS7TUuPtPAAeFQgAWNSTfOMRUlI1LVXTFLshTdYVZTKNRFVFU1upVbVxXdeK+iwfJXYCPJAkSSAAkqUWQnCIV6mxgAfZ6NkAA9po2A5B2ujYPnHbdtHGDwxo2h5+Bnc" & _
	"R/nwCaNh+eYYAHdR5hjdyNW2CZB28D5ho2B5hgeYNpWpZQAWeYAE3Mf5+4Mf6NoCA"
		.HasCheckBox = -1
		.ExpandFolders = True
		.Background(70) = RGB(210,4,0)
		.Background(71) = RGB(211,4,0)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
145
Is it possible to show the entire line when selecting files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.FullRowSelect = True
	End With
End Function
</SCRIPT>
</BODY>
144
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ScrollPartVisible(0,65536) = True
		.ScrollPartVisible(1,65536) = True
		.ScrollPartVisible(2,65536) = True ' &H2
		.ScrollWidth = 4
		.Background(276) = RGB(240,240,240)
		.Background(260) = RGB(128,128,128)
		.ScrollHeight = 4
		.Background(404) = .Background(276)
		.Background(388) = .Background(260)
		.Background(511) = .Background(276)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
143
How can I change the check box button's images (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
	"AWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
	"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9Hp" & _
	"viMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8sgBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gW" & _
	"YJ2F4FwdhsJpuBQfRiAWdQJEAQCAg"
			.Add 2,"gBFLBCJwBAEHhEJAEGg4BVUMQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
	"AWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
	"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDx" & _
	"QjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBi" & _
	"eYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgW" & _
	"mUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCFAEIC"
		End With
		.HasCheckBox = 1
		.ExpandFolders = True
		.Background(70) = &H1000000
		.Background(71) = &H2000000
		.Background(72) = &H2d7f7f2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
142
Is it possible to displays only KB, MB, GB when case, so with no Bytes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.Option(5) = 14
	End With
End Function
</SCRIPT>
</BODY>
141
Is it possible to displays Bytes, KB, MB, GB when case

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.Option(5) = 15
	End With
End Function
</SCRIPT>
</BODY>
140
Is it possible to displays Bytes combined with Mega-Bytes(MB) in the Size column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.Option(5) = 5
	End With
End Function
</SCRIPT>
</BODY>
139
Is it possible to displays Giga-Bytes(GB) only in the Size column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.Option(5) = 8
	End With
End Function
</SCRIPT>
</BODY>
138
Is it possible to displays Mega-Bytes(MB) only in the Size column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.Option(5) = 4
	End With
End Function
</SCRIPT>
</BODY>
137
Is it possible to displays Kilo-Bytes(KB) only in the Size column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.Option(5) = 2
	End With
End Function
</SCRIPT>
</BODY>
136
Is it possible to displays Bytes only in the Size column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.Option(5) = 1
	End With
End Function
</SCRIPT>
</BODY>
135
How can I simulate a go back or navigating to the parent folder

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_Click()
	With ExFileView1
		.BrowseFolderPath = ".."
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BrowseFolderPath = "C:\Program Files"
	End With
End Function
</SCRIPT>
</BODY>
134
Does your control support runtime filter

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ColumnFilterButton("Name") = True
		.AddColumnCustomFilter "Name","All  Project Files (*.sln, *.dsw)","*.sln|*.dsw"
		.AddColumnCustomFilter "Name","Solution Files (*.sln)","*.sln"
		.AddColumnCustomFilter "Name","Compatible Workspace Files (*.dsw)","*.dsw"
		.FilterBarDropDownWidth("Name") = -212
		.ColumnFilterButton("Type") = True
		.FilterBarDropDownWidth("Type") = -128
		.ColumnFilterButton("Modified") = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
133
How can I reffer a folder or a file, without using the wild characters

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("TEMP")
			.HasPattern = False
			.Folder = True
			.Bold = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
132
How do I change the text being diplayed in the Type column for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*.bat")
			.Folder = False
			.Type = "__newtype__"
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
131
How do I change the text being diplayed in the Type column for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = False
			.Type = "__newtype__"
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
130
How do I change the text being diplayed in the Type column for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("W*")
			.Folder = True
			.Type = "__newtype__"
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
129
How do I change the text being diplayed in the Type column for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = True
			.Type = "__newtype__"
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
128
How do I underline specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*.bat")
			.Folder = False
			.Underline = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
127
How do I underline specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = False
			.Underline = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
126
How do I underline specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("W*")
			.Folder = True
			.Underline = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
125
How do I underline specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = True
			.Underline = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
124
How do I draw as strikeout specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*.bat")
			.Folder = False
			.StrikeOut = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
123
How do I draw as strikeout specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = False
			.StrikeOut = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
122
How do I draw as strikeout specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("W*")
			.Folder = True
			.StrikeOut = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
121
How do I draw as strikeout specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = True
			.StrikeOut = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
120
How do I draw as italic specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*.bat")
			.Folder = False
			.Italic = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
119
How do I draw as italic specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = False
			.Italic = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
118
How do I draw as italic specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("W*")
			.Folder = True
			.Italic = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
117
How do I draw as italic specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = True
			.Italic = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
116
How do I bold specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*.bat")
			.Folder = False
			.Bold = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
115
How do I bold specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = False
			.Bold = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
114
How do I bold specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("W*")
			.Folder = True
			.Bold = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
113
How do I bold specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = True
			.Bold = True
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
112
How do I change the background color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*.bat")
			.Folder = False
			.BackColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
111
How do I change the background color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = False
			.BackColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
110
How do I change the background color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("W*")
			.Folder = True
			.BackColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
109
How do I change the background color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = True
			.BackColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
108
How do I change the foreground color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*.bat")
			.Folder = False
			.ForeColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
107
How do I change the foreground color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = False
			.ForeColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
106
How do I change the foreground color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("W*")
			.Folder = True
			.ForeColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
105
How do I change the foreground color for specified files or folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		With .FileTypes.Add("*")
			.Folder = True
			.ForeColor = RGB(255,0,0)
			.Apply 
		End With
	End With
End Function
</SCRIPT>
</BODY>
104
How do I get the count of all items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		var_Count = .Get(3).Count
	End With
End Function
</SCRIPT>
</BODY>
103
How do I get the count oc checked items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.HasCheckBox = -1
		var_Count = .Get(2).Count
	End With
End Function
</SCRIPT>
</BODY>
102
How do I get the count of all items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		var_Count = .Get(1).Count
	End With
End Function
</SCRIPT>
</BODY>
101
How do I get the selected folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		var_Count = .Get(0).Count
	End With
End Function
</SCRIPT>
</BODY>